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Appendix A 

/****************************************************************************** 

Configuration Bits 
******************************************************** 

/define _CP_ON OxOOOF 

/define _CP_OFF 0x3FFF 

#define _PWRTE_ON 0x3FF7 

#define _PWRTE_OFF 0x3FFF 

/define _WDT_ON 0x3FFF 

_ /define _WDT_OFF 0x3FFB 

Q /define _LP_OSC 0x3FFC 

y3 /define XTOSC 0x3FFD 

? s /define _HS_OSC 0x3FFE 

%} /define _RC_OSC 0x3FFF 

yl /define mkstr(x) /x 

/i^ef P I C_PROGRAMME R 

iVi /define CONFIG(x) asm( "\tpsect conf ig, class=CODE,delta=2" ) ; \ 

^ asm( "\tglobal\tconf ig_word" ) ; \ 

asm( "conf ig_word" ) ; \ 

s asm("\tdw " mkstr(x)) 

/e^if /* End of PIC_PROGRAMMER */ 

/iiSef DATAIO_PROG RAMMER /* Locate configuration at 0x0404 */ 

/define CONFIG(x) asm( "\tpsect dataio, class=CODE,delta=2" ) ; \ 

M= asm( "\tglobal\tconf ig_word" ) ; \ 

vj asm( "conf ig_word" ) ; \ 

^ asm ( " \tdw M mkstr ( x ) ) 

/eSiif /* End of DATAIO_PROGRAMMER */ 

/* end */ 

// psect eedata,delta=2 ,abs,ovrld 

// org 2100h 

// db 1,2,3,4,5 
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Module Name: nvmem.c 
Number /Vers ion: 1. 00 
History: 

Date Rev Author Description 

17-Dec-1998 1.00 C. Houlberg Baseline. 



Functions: 

initialize_system( ) 
eeprom_key_load ( ) 

kgv_key_load ( ) 

erase_key ( ) 
wipe_key ( ) 
time_delay ( ) 



Initializes processor. 

Loads key from key loader and stores it in 
EE PROM. 

Loads the key stored in the EE PROM into the 
KGV-68. 

Erases key following an erase indication. 

Wipe the key from EE PROM memory. 

Time delay (sets up interrupt routine). 



Abstract: 

This program performs all Non-Volital Memory control functions. 
The PIC16F873 or PIC16F876 is used as the Non-Volital Memory device. 
Q The device signal definitions follow: 
Key Loader Data Interface Signals 







sense_in 


Digital 


input 


i)0 




fill elk 


Digital 


input 


i)U1 




fill_data 


Digital 


input 


l)fn 




var_req 


Digital 


output 






erase 


Discrete input 




Key 


Loader Indicator 


Signals 




DO 


kgvl_ok 


Digital 


output 


1)= 




erase_ind 


Digital 


output 






kgv2 ok 


Digital 


output 




System Interface Signals 








flight erase 


Discrete input 






xmt r_dTs able 


Digital 


output 




KGV 


Interface Signals 










encr_sen_inl 


Digital 


output 






encr_f elk 


Digital 


output 


1)^ 




encr_fdata 


Digital 


output 


1) 




encr_var_req 


Digital 


input 


1) 




encr_ran_cpl 


Digital 


input 






encr_sen_in2 


Digital 


output 






encr_mr 


Digital 


output 






encr_ck_okl 


Digital 


input 






encr_ck_ok2 


Digital 


input 






encr_ran_cp2 


Digital 


input 



Signal activating KGV-68 for 
keying 

Non-volatile memory key load clock 
Non-volatile memory key load data 
Strobe requesting key load 
Analog input 2.5 Volt threshold 

KGV1 key load accepted and OK 

Erased key indicator 

KGV2 key load accepted and OK 

Analog input 22.5 Volt threshold 
Transmitter disable signal 

Sense signal for KGV1 

KGV key loading clock (1.6KHz) 

KGV key loading data 

KGV key variable request 

KGV1 random compare OK (active 

low) 

Sense signal for KGV2 

KGV master reset 

KGV1 key check OK (active low) 

KGV2 key check OK (active low) 

KGV2 random compare OK (active 

low) 



Notes: 



1) Minimal set up I/O signals required to perform the non-volital 
memory function (single KGV-68). The non-volatile memory function 
can therefore be implemented with a PIC16F83 microcontroller. 

2) A PIC16F876 is used to perform the non-volital memory function for 
applications requiring two KGV-68s. All the above signals are 
used in this implementation. 

3) The processor is operated with a clock rate of 4MHz. All timer 
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operations must adjust prescaler and counter registers accordingly. 
4) All timer operations are implemented with an interrupt. Global 
variables are used to identify the timer function. 
******************************************************************************^ 

/* Conditional compilation. 
*/ 

// #define DUAL_KGV_SYSTEM /* Two KGV-68s to load */ 

/define MAX_KEYLOAD_ATTEMPTS 3 /* Attempts for each key copy */ 

/* Programmer being used. 
*/ 

/* For the PIC programmer, no user defined memory section needed */ 
// /define P I C_PROGRAMMER 

/* For the DatalO, the PICC command line must include -l-pdataio=0404h */ 
/define DATAIO_PROGRAMMER 

/* All parameters and function 
the following header files* 

*/ 

#ifdef DUAL_KGV_S Y STEM 

O /include <picl6876.h> 
Zeljjp 

/include <picl684.h> 

/en^if 

/include "config.h" 
Ln /include "nvmem.h" 
ff : /include "size.h" 

/* zz Configuration. 

*/Q 

s CONFIG (_CP_OFF & _PWRTE_0 

Constant definitions. 

*/HJ 

H= /define DEGLICH COUNT 



/*y Data storage locations. 

*/□ 

/define P R I MAR Y__CW_S TORAG E 
/define PRIMARY_KEY_STORAGE 
/define BACKUP_CW_STORAGE 
/define B ACKUP_KE Y_S TORAGE 
/define TOTAL_KEY_STORAGE 

/* Enumerations. 

*/ 

enum Activation 
{ 

OFF, 
ON 

}; 

enum Encrypter 
{ 

KGV1, 
KGV2 



s used by main() are defined in 



/* Single KGV system */ 

/* Processor definitions */ 

/* End of KGV system declaration */ 

/* PIC configuration definitions */ 

/* Non-Volital Memory control definitions */ 

/* Sensitive data size information */ 



N & _WDT_OFF & XTOSC) 



/* Consecutive active signal 
samples */ 



0x00 

( PRIMARY_CW_STORAGE + CHECK_WORD_SIZE ) 
( PR I MARY_KE Y_S TORAGE + KEY_SIZE) 
( BACKUP_CW_STORAGE + CHECK_WORD_SIZE ) 
( (CHECK_WORD_SIZE + KEY_SIZE) « 1) 
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}; 

enum KeySource 
{ 

BACKUP , 
PRIMARY 

}; 

enum Interrupt Function 
{ 

START_KGV_KEY_LOAD , 
KGV_KEY_LOAD, 
END_KGV_KEY_LOAD , 
TIME_DELAY, 
FAST_FLASH, 
SLOW_FLASH 

}; 

/* Global interrupt enable */ 
#define GLOBAL_ENABLE 0x80 

/* (304 * 4 = 1,216 clock cycle half period => 1,645 Hz) */ 
/* Internal clock, low to high, prescale 1/16 */ 
#define KGV_KE Y_LOAD_OPT I ON 0x03 
/* 1/19 (1/16 * 1/19 = 1/304) */ 
/define KGV_KEY_LOAD_TMR0 (256 - 19) 

/* Internal clock, low to high, prescale 1/256 */ 
ly /define TEN_MSEC_TIMER_OPTION 0x07 
Q /* 1/39 (1/256 * 1/39 = 1/9,984) */ 
s /define TEN_MSEC_TIMER_TMR0 (256 - 39) 

/* Fast flash is 10 flashes/second slow flash is 2 flashes/second */ 
^ /define INDICATOR_FLASH_OPTION 0x07 
FU /define I ND I CATOR_FLASH_TMR0 (256 - 39) 

/define FAST_FLASH_COUNT 5 
%j /define SLOW_FLASH_COUNT 25 

Signal declarations.. 

/define key_loader_present sense_in 

/define kgvl_not_loaded encr_ran_cpl 

/define kgv2_not_loaded encr_ran_cp2 

/define launch_active flight_erase 

/define erase_active erase 

/* Variable declarations. 
*/ 

/* Source of key for key load and KGV being loaded */ 

unsigned char key_source = PRIMARY; 

unsigned char key_destination = KGV1; 

/* Key load attempts */ 

unsigned char kgvl_load_attempt =0; 

unsigned char kgv2_load_attempt =0; 

unsigned char kgv_load_attempted =0; 

/* Storage for timer function interrupt */ 

unsigned char key_addr; 

unsigned char key_byte; 

unsigned char shift_counter; 

/* Interrupt function */ 



* i 
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unsigned char interrupt_f unction; 
/* Global timer count down */ 
unsigned char timer_count; 
unsigned char fudge_count; 

/* Function definitions. 

*/ 

void initialize_system( unsigned char *key_present_ptr ) ; 
void eeprom_key_load( unsigned char *key_present_ptr ) ; 
unsigned char get_byte(void) ; 
void kgv_key_load( void) ; 
void interrupt handler (void) ; 

unsigned char read_eeprom ( unsigned char address); 
void erase key (void); 
void wipe_Eey (void) ; 
void time_delay ( void) ; 

void check_eeprom( unsigned char *key_present_ptr ) ; 
^ void display_load_status(void) ; 

/ * *y|!* *************************************************** 
Function Name: main() 
Nur^er /Version : 
Hifljory : 

Date Rev Author Description 

ED 17-Dec-1998 1.00 C. Houlberg Baseline. 

Input Variables: 
None . 

OuCput Variables: 
ff I None . 

GloBal Variables: 
N None . 

Functions Referenced: 

~ initialize_system( ) Initializes processor. 

eeprom_key_load ( ) Loads key from key loader and stores it in EE PROM. 
kgv_key_load ( ) Loads key into KGVs. Transmitters off during load. 

erase_key() Erases key following an erase indication. 

Abstract: Main program module to perform all Non-Volital Memory Control 
functions. 

******************************************************************** **********/ 

void main (void) 

{ 

/* Variable declarations */ 
unsigned char key^present; 

/* Initialize the system */ 
initialize_system(&key_present) ; 

/* Key loading */ 

for(;;) 

{ 

/* Check if loader is present (returns when not present) */ 
if (key loader present) 
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eeprom_key_load(&key_present ) ; 

/* Check if key is present */ 

if ( key_present ) 

{ 

/* Load the key into the KGVs */ 

if ( lkgv_load_attempted) /* Only if not previously 

attempted */ 

kgv_key_load ( ) ; 

/* Check for erase indication to erase key */ 
if ( erase_active ) 

erase_key ( ) ; 

} 

} 

} 

/****************************************************************************** 
Filiation Name: initialize_system( ) 
Number / Ve r s ion : 
Higtory: 

~ Date Rev Author Description 

J=f 17-Dec-1998 1.00 C. Houlberg Baseline. 

Lh i 

Injgit Variables: 

U key_present_ptr Pointer to key_present flag. 

Output Variables: 
£ None. 

Global Variables: 
; * None . 

Ftfnbtions Referenced: 
q time_delay() Wait for timer count to expire, 

p, eeprom_read ( ) ^ Get byte from EE PROM - PIC library function. 

Abstract: Initializes system for all Non-Volital Memory Control functions. 
******************************************************************************/ 

void initialize_system( unsigned char *key_present_ptr ) 

{ 

/* Initialize port data direction */ 
TRISA = PORT_A_DIRECTION; 
TRISB = PORT_B_DIRECTION; 
#ifdef DUAL_KGV_SYSTEM 

TRISC = PORT_C_DIRECTION; 

#endif 

/* Initialize port output signal levels */ 

var_req =10; /* Active low (not requesting load) */ 

kgvl_ok =10; /* Active low (KGV1 not loaded) */ 

erase_ind =10; /* Active low (key not erased) */ 

xmtr_disable =10; /* Active high (transmitter disabled) * 

encr_sen_inl =0; /* Active high (not loading KGV1) */ 

encr_fclk = 10; /* Active falling edge (initially high) */ 

encr_fdata = 10; /* Zero data bit */ 

#ifdef DUAL KGV SYSTEM 
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kgv2_ok = 10; 
encr_sen_in2 =0; 
encr_mr =0; 

#endif 

/* Initialize interrupts */ 
INTCON = GLOBAL_ENABLE ; 

/* Test indicators */ 

kgvl_ok = 0; 

timer_count = 100; 

time_delay ( ) ; 

kgvl_ ok = 10; 
#ifdef DUAL_KGV_SYSTEM 

kgv2_ok = 0; 

timer_count = 100; 

time_delay ( ) ; 
_ kgv2_ok = !0; 
#en3if 

yj erase_ind = 0; 

i ft timer_count = 100; 

time_delay ( ) ; 

erase ind = 10; 



/* Active low (KGV2 not loaded) */ 
/* Active high (not loading KGV2) */ 

/* Active high (not performing reset) */ 



/* Global enable, mask all interrupts */ 



/* Indicator on */ 

/* 1 second interval */ 

/* Delay for indicated count */ 

/* Indicator off */ 

/* Indicator on */ 

/* 1 second interval */ 

/* Delay for indicated count */ 

/* Indicator off */ 

/* Indicator on */ 

/* 1 second interval */ 

/* Delay for indicated count */ 
/* Indicator off */ 



} 2 



/* Scan EE PROM for presence of key */ 
check eeprom(key present ptr); 



Function Name: eeprom_key_load( ) 
Number /Vers ion: 
Hitftory: 
H Date 



Rev 



SJ 17-Dec-1998 1.00 

Inpit Variables: 

^ key_present_ptr 

Output Variables: 
None. 

Global Variables: 
None. 



Author 
C. Houlberg 



Baseline. 



Description 



Pointer to key present flag. 



Functions Referenced: 
time_delay ( ) 
get_byte ( ) 
eeprom write () 



Wait for timer count to expire. 
Get byte from KYK-13 or KOI-18. 

Put byte in EEPROM - PIC library function. 



Abstract: Loads the check word and key from key loader (KYK-13 or KOI-18) 

and stores it in EEPROM. 
******************************************^ 

void eeprom_key_load ( unsigned char *key_present_ptr ) 
{ 

/* Variable declarations */ 

unsigned char byte_count, stable_count ; 

unsigned char key_segment [ 16 ] ; /* Temporary storage for key segment */ 
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/* Disable the transmitters */ 
xmtr^disable = 10; 

/* Request load after an approximate 1 second delay */ 

kgvl_ok = 10; /* Ensure indicator flash off */ 

#ifdef DUAL_KGV_SYSTEM 

kgv2_ok =10; /* Indicator off */ 

#endif 

timer_count = 10; /* 0.1 second interval */ 

time_delay ( ) ; /* Delay for indicated count */ 

var_req =0; /* Active low request */ 

/* Load Check Word */ 
for (byte_count =0; 

(byte_count < CHECK_WORD_SIZE) && key_loader_present ; byte_count++) 



{ 



^ } 



/* Get one byte of fill data */ 

key_segment [ byte_count ] = get__byte ( ) ; 

/* Set request inactive (arbitrarily set done after 1st byte) */ 

var req =10; /* Active low request now not active */ 



/* Put Check Word segment into EE PROM */ 
for (byte_count =0; 

(byte_count < CHECK_WORD_SIZE) && key_loader_present ; byte_count++ ) 

{ 

eeprom_write(PRIMARY_CW_STORAGE + byte_count, key_segment [ byte_count ] ) ; 
eeprom_wr ite ( BACKUP_CW_STORAGE + byte_count , key_segment [ byte_count ] ) ; 

} 

/* Wait for indication that key is coming */ 

if ( key_loader_present ) 

{ 

/* Wait for disconnect (KYK-13) or fill clock (KOI-18) */ 
while (key_loader_present && f ill_clk) ; 

/* Check for disconnect */ 

if ( lkey_loader_present ) /* Loading with KYK-13 */ 
{ 

/* Wait for key loader present */ 

for(stable_count = 0; ( stable_count < DEGLICH_COUNT) ; 
stable_count++) 

if ( lkey_loader_present ) stable_count =0; 

/* Set request inactive (arbitrarily set done after 1st byte) */ 
var_req =0; /* Active low request now active */ 

} 

} 

/* Load Key */ 

for (byte_count = 0; 

(byte_count < KEY_SIZE) && key_loader_present; byte_count++ ) 

{ 

/* Get one byte of fill data */ 
key_segment [ by te_count ] = get_by te ( ) ; 
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/* Set request inactive (arbitrarily set done after 1st byte) */ 
var_req =10; /* Active low request now not active */ 

} 

/* Put Key segment into EE PROM */ 
for (byte_count =0; 

(byte_count < KEY_SIZE) && key_loader_present ; byte_count++ ) 

{ 

eeprom_write(PRIMARY_KEY_STORAGE + byte_count, key_segment ( byte_count ] ) ; 
eeprom_write(BACKUP_KEY_STORAGE + byte_count, key_segment [ byte_count ] ) ; 

} 

/* Indicate key should be present (procedure completed) */ 

if ( key_loader_present ) 

{ 

*key_present_ptr = 10; 

/* Clear erase light */ 
erase_ind = 10; 

O /* Wait for loader to be disconnected or turned off */ 

while ( key_loader_present ) ; 

/* Indicate key load should be attempted */ 

LJ kgv_load_attempted = 0; 

Ln kgvl_load_attempt = 0; 

#i#ffef DUAL_KGV_SYSTEM 

r; kgv2_load_attempt = 0; 

#eiVSif 

O } 
s else 

n < 

^ /* Check EE PROM for old key */ 

* y check_eeprom ( key_present_pt r ) ; 

%j /* Display load status */ 

^ display_load_status ( ) ; 



/* Enable the transmitters */ 
xmtr_disable = 0; 

} 

/***************************************^ 
Function Name: kgv_key_load ( ) 
Number/Version: 
History: 

Date Rev Author Description 

17-Dec-1998 1.00 C. Houlberg Baseline. 

Input Variables: 
None. 

Output Variables: 
None. 

Global Variables: 
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None. 

Functions Referenced: 
None • 

Abstract: Loads the key in EE PROM into the KGV-68s. The transmitters are 
disabled during the key load process. This function can be compiled 
for optimal operation with one or two KGV-68s. 

***************************************** 

void kgv_key_load(void) 
{ 

/* Disable the transmitters */ 
xmtr_disable = 10; 

/* Attempt key load until maximum attempts are exceeded */ 
do 

{ /* Check if KGV1 is not loaded */ 

if (kgvl_not_loaded) 

/* Set KGV1 sense input active to start load */ 
rz encr_sen_inl = 10; 

D /* Wait for variable request from KGV1 */ 

[fj while ( encr_var_req) ; /* Active low (wait for low) */ 

^ /* Attempt a key load */ 

/* Set up for start of key load interrupt */ 
O int err upt_f unction = START_KGV_KEY_LOAD; 

a key_destination = KGV1; 

*zf /* Initialize timer and enable interrupt */ 

fU TMRO = KGV_KEY_LOAD_TMR0; 

M= OPTION = KGV_KEY_LOAD_OPTION; 

Is INTCON = GLOB ALIENABLE; 

^ T0IE = 1; 

□ /* Wait for key load to complete */ 

while (T0IE == 1); 

/* Set KGV1 sense input inactive */ 
encr_sen_inl =0; 

/* Count key load attempts */ 
++kgvl_load_attempt ; 

} 

#ifdef DUAL_KGV_SYSTEM 

/* Check if KGV2 is not loaded */ 

if ( kgv2_not_loaded ) 

{ 

/* Set KGV2 sense input active to start load */ 
encr_sen_in2 = 10; 

/* Wait for variable request from KGV2 */ 

while ( encr_var_req ) ; /* Active low (wait for high) */ 

/* Attempt a key load */ 
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/* Set up for start of key load interrupt */ 
int err upt_f unction = START_KGV_KEY_LOAD ; 
key_destination = KGV2; 

/* Initialize timer and enable interrupt */ 
TMRO = KGV_KEY_LOAD_TMR0; 
OPTION = KGV_KEY_LOAD_OPTION; 
INTCON = GLOBAL_ENABLE ; 
T0IE = 1; 

/* Wait for key load to complete */ 
while (T0IE == 1); 

/* Set KGV2 sense input inactive */ 
encr_sen_in2 =0; 

/* Count key load attempts */ 
— ++kgv2_load_attempt ; 

y > 

#endif 

Ln /* Next try other key source */ 

f=i key_source = lkey_source; 

Ul /* Delay to allow the KGV-68 time to process segment */ 

£y timer_count = 100; 

ui time_delay( ) ; 

n > 

— " /* Alternate between the primary key and the backup key */ 
s while ( ( kgvl_not_loaded 

D && (kgvl_load_attempt < (MAX_KEYLOAD_ATTEMPTS « 1))) 

#i<def DUAL_KGV_SYSTEM 
[T ! ! (kgv2_not_loaded 

ff: && (kgv2_load_attempt < (MAX_KEYLOAD_ATTEMPTS « 1))) 

#ehbif 
□ ); 

^ /* Enable the transmitters */ 
xmtr_disable =0; 

/* Display indication if properly loaded */ 
display_load_status( ) ; 

/* Indicate KGV load attempted */ 
kgv_load_attempted = 10; 

} 

y************************************^^ 
Function Name: handler() 
Number / Ver s ion : 
History: 

Date Rev Author Description 

17-Dec-1998 1,00 C. Houlberg Baseline. 

Input Variables: 
None. 

Output Variables: 
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None. 

Global Variables: 
None . 

Functions Referenced: 

eeprom_read ( ) Get byte from EEPROM - PIC library function. 

Abstract: Loads the key in EEPROM into the KGV-68. 
********************************************^ 

void interrupt handler (void) 

{ ; 

/* Variable declarations */ 
unsigned char temp; 

/* Clear TMRO flag */ 
TOIF = 0; 

/* Determine function of interrupt */ 
yn switch ( interrupt_f unct ion ) 

LP < 

ZJ_ case ( START_KGV_JCEY_LOAD ) : 

hf /* Continue timer interrupt key load function */ 

Ul TMRO = KGVJCEY_LOAD_TMR0 ; 

ED OPTION = KGV_KEY_LOAD_OPTION; 

|~1 T0IE = 1; 

^ /* Initialize transfer variables */ 

s encr_fclk =10; /* Active falling edge */ 

p if (key_source == PRIMARY) /* Point to start of primary key */ 

f-l key_addr = PRIMARY_CW_STORAGE ; 

\^ else /* Point to start of backup key */ 

j 8 ^ key_addr = BACKUP_CW_STORAGE ; 

O key_byte = read_eeprom ( key_addr++ ) ; /* Get first byte */ 

~ if (key_byte & 0x80) /* Determine state of MSB */ 

^ encr_fdata =1; /* Output bit */ 

else 

encr_fdata =0; * Output bit */ 

key_byte = key_byte « 1; /* Shift for next bit transfer */ 

shift_counter =1; /* Indicate first bit output */ 

/* New interrupt function (continue key load on next interrupt) */ 
interrupt_f unct ion = KG V_KE Y_LO AD ; 
break; 
case ( KGV_KEY_LOAD ) : 

/* Continue timer interrupt key load function */ 
TMRO = KGV_KEY_LOADJTMR0; 
OPTION = KGV_KEY_LOAD_OPTION; 
T0IE = 1; 

/* Transition clock */ 
temp = encr_fclk; 
encr^fclk = Itemp; 

/* Shift out new data bit on falling edge of encr_fclk */ 
if (encr_f elk) 
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} 



/* Check if starting a new byte */ 
if ( i ahif t_counter ) 

key_byte = read_eeprom ( key_addr++ ) ; 

/* Check value of MSB and output to KGV */ 
if(key_byte & 0x80) 

encr_fdata =1; 

else 

encr__fdata = 0; 

/* Shift data and updata shift counter modulo 8 */ 
key_byte = key_byte « 1; /* Shift for next bit 

transfer */ 
shift counter = ++shift counter & 0x07; 



/* Check for new timer function */ 

if ( ( (key_addr == ( PRIMARY_CW_STORAGE + TOTAL_KEY_STORAGE ) ) 

II (key_addr == (BACKUP_CW_STORAGE + TOTAL_KEY_STORAGE ) ) ) 
Q && lshift_counter && lencr_fclk) 

inter rupt_f unction = END_KGV_KEY_LOAD ; 

^ break; 

UJ case ( END_KGV_KEY_LOAD ) : 

O /* Mask timer interrupt (key load function completed) */ 

Ip T0IE = 0; 

^ /* Toggle clock high */ 

Ly encr_fclk = 10; 

Q break; 

case(TIME_DELAY) : 

%, /* Reload TMR0 */ 

y TMR0 = TEN_MSEC_TIMER_TMR0; 

fy OPTION = TEN_MSEC_TIMER_OPTION; 

y, if (timer_count ) 

\f * 

^ — t imer_count ; 

U T0IE = 1; 

else 
{ 

T0IE = 0; 

} 

break; 
case ( FAST_FLASH ) : 
case ( SLOW_FLASH ) : 

/* Reload TMR0 */ 

TMR0 = INDICATOR_FLASH_TMR0; 

OPTION = INDICATOR_FLASH_OPTION; 

if (timer_count ) 

{ 

— timer_count ; 

} 

else 
{ 

/* Re-establish count */ 

if (interrupt_f unction — FAST_FLASH) 
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timer_count = FAST_FLASH_COUNT; 

else 

timer_count = SLOW_FLASH_COUNT; 
/* Toggle indicator */ 
temp = kgvl_ok; 
kgvl_ok = 1 temp; 

#ifdef DUAL_KGV_S Y STEM 

temp = kgv2_ok; 
kgv2_ok = itemp; 

#endif 

} 

T0IE = 1; 
break; 
default: 

break; 

} 

} 

****** ************************************* 

Function Name: read_eeprom ( ) 

Number /Vers ion: 

HiMfeory: 

Date Rev Author Description 

Ln 17-Dec-1998 1.00 C. Houlberg Baseline. 

Injbyt Variables: 

'tz unsigned char address EEPROM data address location. 

Output Variables: 

q unsigned char read_eeprom ( ) Data from EEPROM. 

?\ \ 

Glpbal Variables: 
None. 

Functions Referenced: 
None . 

S : 
¥=w? 

Abstract: EEPROM read routine ONLY for interrupt handler routine. 
************************************************************************* ★****/ 

unsigned char read_eeprom( unsigned char address) 

{ 

EEADR = address; 
RD = 1; 

return EEDATA; 

} 

/******* ******************************************* ********** ****************** 
Function Name: erase_key() 
Number /Vers ion: 
History: 

Date Rev Author Description 

17-Dec-1998 1.00 C. Houlberg Baseline. 

Input Variables: 
None. 

Output Variables: 
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None. 

Global Variables: 
None. 

Functions Referenced: 

wipe_key() Perform a wipe operation to erase the key. 

Abstract: Erases the key stored in EE PROM following an erase indication 
from the key loader. 

******************************************************************************/ 

void erase_key (void) 

{ 

/* Variable declarations */ 
unsigned char stable_count ; 
unsigned char delete_key = 10; 

_ /* Debounce the erase indication signal */ 

LJ for (stable_count = 0; stable_count < DEGLICH_COUNT; stable_count++) 
yQ if ( !erase_active) delete_key = 0; 

~ /* If indicated, delete the key */ 

y if (delete_key) 

Ul { 

fn /* Wipe the key from EE PROM memory */ 

r = l wipe_key(); 

^ /* Set erase light when key is erased */ 

~ erase_ind =0; 

£3 

jJt /* Maintain KGV-68 load status */ 

1 ^ display_load_status ( ) ; 

H } 
} S| 

/* irk*************** ****** ****** ************************************************ 

Function Name: wipe_key() 

Number /Vers ion : 

History: 

Date Rev Author Description 

17-Dec-1998 1.00 C. Houlberg Baseline. 

Input Variables: 
None* 

Output Variables: 
None. 

Global Variables: 
None. 

Functions Referenced: 

eeprom_read ( ) Get byte from EE PROM - PIC library function. 

Abstract: Performs a "wipe" operation to erase the key stored in EEPROM. 
****************************************************************************** ^ 

void wipe_key ( void) 
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/* Variable declarations */ 
unsigned char key_erased =0; 
unsigned char erase_pass; 
unsigned char byte_count; 

unsigned char data_byte[] = {Oxaa, 0x55, 0x46, Oxff, 0x00}; 

while (< i key_erased ) 
{ 

/* Erase EE PROM key storage memory (5 passes) */ 
for(erase_pass =0; erase_pass < 5; erase_pass++) 
{ 

/* Perform one erasure pass */ 

for (byte_count =0; byte_count < TOTAL_KEY_STORAGE ; byte_count++) 
eeprom_write ( PRIMARY_CW_STORAGE + byte_count, 
data_byte[erase_j?ass] ) ; 

} 

/* Read EE PROM to verify erasure */ 
di key_erased =10; /* Assume key was erased */ 

[ff for(byte_count = 0; byte_count < TOTAL_KEY_STORAGE ; byte_count++ ) 

^ if ( eeprom_read ( PRIMARY_CW_STORAGE + byte_count ) ) 

™ key_erased =0; 

Ul } 

} Ui 

hi 

I * w* *************************************************************************** 

Fimction Name: time_delay( ) 
Number / Ver s ion : 
Hiiitory : 

Date Rev Author Description 

\Z 17-Dec-1998 1.00 C. Houlberg Baseline. 

Input Variables: 
q None. 

Output Variables: 
None. 

Global Variables: 
None. 

Functions Referenced: 
None . 

Abstract: Set up timer counter and waits until interrupts are completed. 
***************************************************** 

void time_delay ( void) 

{ 

interrupt_function = TIME_DELAY; /* Set up interrupt */ 
TMR0 = TEN_MSEC_TIMER_TMR0; /* Initialize timer */ 

OPTION = TEN_MSEC_TIMER_OPTION; 

INTCON = GLOBAL_ENABLE ; /* Ensure interrupts are enabled */ 

T0IE = 1; /* Enable timer interrupt */ 

while(T0IE == 1); /* Wait for delay to complete */ 

} 
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/****************************************************************************** 

Function Name: get_byte{) 

Number/Version: 

History: 

Date Rev Author Description 

17-Dec-1998 1.00 C. Houlberg Baseline. 

Input Variables: 
None . 

Output Variables: 

unsigned char byte 

Global Variables: 
None. 

Functions Referenced: 
~=l None . 

Abstract: Gets a byte from the KYE-13 or KOI-18. 

***ij****************** ******************* **************************************/ 
unsigned char get_byte( void) 

{ ih 

rJ /* Variable declarations */ 

UJ unsigned char bit_count, stable_count ; 

hi unsigned char data_byte; 

w /* Get one byte of fill data (clocked in on falling edge) */ 
Z_ for (bit_count = 0; 

(bit_count < 8) && key_loader_present ; bit_count++) 

LI /* Wait for clock to go low */ 

for ( stable_count =0; 
^ (stable_count < DEGLI CH_C0UNT ) && key_loader_present ; 

□ stable_count++) 
p if(fill_clk) stable_count = 0; 

/* Put data bit into data byte (MSB first) */ 
if (key_loader_present ) 

data_byte = (data_byte « 1) + fill_data; 

/* Wait for clock to go high */ 
for(stable_count =0; 

(stable_count < DEGL I CH_COUNT ) && key_loader_present ; 

stable_count++ ) 

if ( If ill_clk) stable_count = 0; 

} 

/* Return data byte */ 
return data_byte; 

} 

/****************************** ***************************** ******************* 
Function Name: check_eeprom ( ) 
Number/Version : 
History: 

Date Rev Author Description 
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17-Dec-1998 1.00 C. Houlberg Baseline. 

Input Variables: 

unsigned char *key_present_ptr 

Output Variables: 
None. 

Global Variables: 
None. 

Functions Referenced: 
None. 

Abstract: Scans EE PROM for possible presence of key. 

******************************************************************************/ 
void check_eeprom( unsigned char *key_present_ptr ) 

{ « 

4f /* Variable declarations */ 
yj unsigned char i; 

yi unsigned char no_data =10; /* Assume no data in EE PROM */ 

P=j unsigned char bad_data = 0; /* Primary and backup data matches */ 

rz. unsigned char stored_value; 

CO for(i =0; i < BACKUP_CW_STORAGE ; i++) 

Ld { 

f== stored_value = eeprom_read ( PRIMARY_CW_STORAGE + i); 

^ if (stored_value && ( stored_value 1 = Oxff)) 

s no_data =0; /* Have data in EE PROM */ 

O if (stored_value i= eeprom_read(BACKUP_CW STORAGE + i) ) 

m bad_data =10; /* Mismatch => bad key data */ 

U > 

if (no_data j | bad_data) 

N { 

O *key_present_ptr =0; /* No good key data */ 

^ /* Flash kgv_ok to indicate the key is no good (10 flashes/sec) */ 

inter rupt_f unction = FAST_FLASH; /* Set up interrupt */ 
TMR0 = INDICATOR_FLASH_TMR0; /* Initialize timer */ 

OPTION = INDICATOR_FLASH_OPTION; 

timer_count = FAST_FLASH_COUNT ; /* 0.05 second interval */ 

T0IE = 1; 

kgvl_ok =0; /* Indicator on */ 

#ifdef DUAL_KGV_SYSTEM 

kgv2_ok =0; /* Indicator on */ 

#endif 

> 



else 
{ 



/* Have a key */ 

*key present ptr = 10; 



} 



/****************************************************************************** 
Function Name: display_load_status ( ) 
Number / Ver s ion : 
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History: 

Date Rev Author Description 

17-Dec-1998 1.00 C. Houlberg Baseline. 

Input Variables: 
None. 

Output Variables: 
None. 

Global Variables: 
None. 

Functions Referenced: 
None. 

Abstract: Indicates if KGV-68 was properly loaded. 
**^******************************^ 

vo£d display load status (void) 

{ ^0 " 

Ln if ( kgvl_not_loaded ) 

^ /* Flash kgv_ok to indicate the load is no good */ 

Ul interrupt_f unction = SLOW_FLASH; /* Set up interrupt */ 

m timer_count = SLOW_FLASH_COUNT ; 

U\ TMR0 = INDICATOR_FLASH_TMR0; /* Initialize timer */ 

J: OPTION = INDICATOR_FLASH_OPTI0N; 

^ INTCON = GLOBAL_ENABLE ; /* Ensure interrupts are enabled */ 

e T0IE = 1; 

kgvl_ok =0; /* Indicator on (toggle) */ 



} 

e] 
{ 



i tjj 

else 



kgvl_ok = 0; /* Properly loaded (indicator on) */ 

□ } 

#iSef DUAL_KGV_S Y STEM 
^ i f ( kgv2_not_loaded ) 
{ 

/* Flash kgv_ok to indicate the load is no good */ 
interrupt_f unction = SLOW_FLASH; /* Set up interrupt */ 
timer_count = SLOW_FLASH_COUNT ; 

TMR0 = I ND I CATOR_FL AS H_TMR0 ; /* Initialize timer */ 

OPTION = INDICATOR_FLASH_OPTION; 

INTCON = GLOBAL_ENABLE ; /* Ensure interrupts are enabled */ 

T0IE = 1; 

kgv2_ok =0; /* Indicator on (toggle) */ 



} 

else 
{ 

} 

#endif 
} 

/* end */ 



kgv2_ok =0; /* Properly loader (indicator on) */ 
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/****************************************************************************** 

Module Name: nvmem.h 
Number/Version: 1.00 
History: 

Date Rev Author Description 

17-Dec-1998 1.00 C. Houlberg Baseline. 

Abstract: Project definitions. 

*********************************** *************************** 



/* 
*/ 



assz 



Constant definitions. 

/* Key Loader Data Interface S 
#define sense_in RAO 
#define fill_clk RA1 
/define fill_data RA2 
/define var_req RA3 
#define erase RA4 
/* Key Loader Indicator Signal 
#define kgvl_ok RB0 
#define erase_ind RBI 
#define kgv2_ok RC0 
/* System Interface Signals */ 
#define flight_erase RA5 
#define xmtr_disable RB2 
/* KGV Interface Signals */ 
#define encr_sen_inl RB3 
#define encr_fclk RB4 
#define encr_fdata RB5 
#define encr_var_req RB6 
#define encr_ran_cpl RB7 
#define encr_sen_in2 RC3 
#define encr_mr RC4 
#define encr_ck_okl RC5 
#define encr_ck_ok2 RC6 
#define encr ran cp2 RC7 



ignals */ 

/* Signal activating KGV-68 for keying */ 
Non-volatile memory key load clock */ 
Non-volatile memory key load data */ 
Strobe requesting key load */ 
Analog input 2.5 Volt threshold 
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/* 
/* 
/* 
/* 



/* 
/* 
/* 



KGVl key load accepted and OK */ 

Erased key indicator */ 

KGV2 key load accepted and OK */ 



/* Analog input 22.5 Volt threshold */ 

/* Transmitter disable signal */ 



/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 



Sense signal for KGVl */ 
KGV key loading clock */ 
KGV key loading data */ 
KGV key variable request strobe */ 
KGVl random compare OK (active low) 
Sense signal for KGV2 */ 
KGV master reset */ 
KGVl key check OK (active low) 
KGV2 key check OK (active low) 
KGV2 random compare OK (active 



*/ 
*/ 

low) 



/* Port A and B data direction (1/0 => Input/Output) */ 

#ifdef D U AL_KG V_S Y STEM 

#define PORT_A_D I RE GT I ON 0x37 
#define PORT_B_DIRECTION OxcO 
#define PORT_C_DIRECTION 0xe6 

#else /* Single KGV system */ 

#define PORT_A_DIRECTION 0x17 
#define PORT_B_DIRECTION OxcO 

#endif 
/* end */ 
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* 

/* 



* 


Header file for the Microchip 




PIC 16CR83 chip 




PIC 16F83 chip 


* 


PIC 16C84 chip 


* 


PIC 16F84 chip 


* 


PIC 16CR84 chip 


* 


Midrange Microcontrollers 


*/ 





static 


volatile 


unsigned 


char 


RTCC 


@ 


0x01; 




static 


volatile 


unsigned 


char 


TMRO 


@ 


0x01; 




static 


volatile 


unsigned 


char 


PCL 


@ 


0x02 ; 




static 


volatile 


unsigned 


char 


STATUS 


@ 


0x03; 




static 




unsigned 


char 


FSR 


@ 


0x04; 




static 


volatile 


unsigned 


char 


PORTA 


@ 


0x05; 




static 


volatile 


unsigned 


char 


PORTB 


@ 


0x06; 




static 


volatile 


unsigned 


char 


BED ATA 


@ 


0x08; 




static 


volatile 


unsigned 


char 


EE ADR 


@ 


0x09; 




static 




unsigned 


char 


PCLATH 


@ 


OxOA; 




stific 


volatile 


unsigned 


char 


INTCON 


@ 


OxOB; 




static 




unsigned 


char 


bankl OPTION 


@ 


0x81; 


static 


volatile 


unsigned 


char 


bankl TRISA 




@ 


0x85; 


static 


volatile 


unsigned 


char 


bankl TRISB 




@ 


0x86; 


static 


volatile 


unsigned 


char 


bankl EECON1 


@ 


0x88; 


stptic 


volatile 


unsigned 


char 


bankl EECON2 


@ 


0x89; 



STATUS bits */ 



static 


volatile 


bit 


RP0 


@ 


( uns igned ) &STATUS * 8 + 5 ; 


st|%Jbic 


volatile 


bit 


TO 


@ 


( uns igned ) &STATUS * 8+4 ; 


static 


volatile 


bit 


PD 


@ 


( uns igned ) & STATUS * 8+3 ; 


static 


volatile 


bit 


ZERO 


@ 


(unsigned) &STATUS* 8+2 ; 


st^Mtic 


volatile 


bit 


DC 


@ 


( uns igned ) & STATUS * 8 + 1 ; 


static 


volatile 


bit 


CARRY 


@ 


(unsigned) &STATUS*8+0; 


,P 


PORTA bits 


*/ 








static 


volatile 


bit 


RA4 




@ 


( uns igned )&PORTA* 8+4 ; 


static 


volatile 


bit 


RA3 




@ 


(unsigned) &PORTA* 8+ 3 ; 


static 


volatile 


bit 


RA2 




@ 


( uns igned ) &PORTA* 8+2 ; 


static 


volatile 


bit 


RA1 




@ 


(unsigned ) &PORTA*8+l ; 


static 


volatile 


bit 


RAO 




@ 


( uns igned ) &PORTA*8+0 ; 


/* 


PORTB bits 


*/ 








static 


volatile 


bit 


RB7 




@ 


(unsigned ) &PORTB*8+7 ; 


static 


volatile 


bit 


RB6 




@ 


( unsigned ) &PORTB*8+6 ; 


static 


volatile 


bit 


RB5 




@ 


(unsigned ) GPORTB*8+5 ; 


static 


volatile 


bit 


RB4 




@ 


(unsigned ) &PORTB*8+4 ; 


static 


volatile 


bit 


RB3 




@ 


(unsigned ) &PORTB*8+3 ; 


static 


volatile 


bit 


RB2 




@ 


(unsigned ) &PORTB*8+2 ; 


static 


volatile 


bit 


RBI 




@ 


(unsigned) &PORTB*8+l; 


static 


volatile 


bit 


RB0 




@ 


( unsigned )&PORTB* 8+0; 


static 


volatile 


bit 


INT 




@ 


( uns igned ) &PORTB*8+0 ; 


/* INTCON bits */ 










static 


volatile 


bit 


GIE 


@ 


(unsigned) &INTCON*8+7 ; 


static 


volatile 


bit 


EEIE 


@ 


( unsigned ) &INTCON*8+6 ; 
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static volatile bit T0IE 

static volatile bit INTE 

static volatile bit RBIE 

static volatile bit TOIF 

static volatile bit INTF 

static volatile bit RBIF 



@ (unsigned) &INTCON*8+5; 

@ ( unsigned )&INTC0N*8+4; 

@ ( unsigned )&INTCON*8+3; 

@ ( unsigned )&INTCON*8+2; 

@ ( unsigned )&INTCON*8+l; 

@ (unsigned) &INTCON*8+0; 



/* OPTION 


bits 


*/ 


static 


bankl 


bit 


RBPU 


static 


bankl 


bit 


INTEDG 


static 


bankl 


bit 


TOCS 


static 


bankl 


bit 


TOSE 


static 


bankl 


bit 


PSA 


static 


bankl 


bit 


PS2 


static 


bankl 


bit 


PS1 


static 


bankl 


bit 


PSO 



@ (unsigned) &OPTION*8+7; 

@ (unsigned) &OPTION*8+6; 

@ (unsigned) &OPTION*8+5; 

@ (unsigned) &OPTION*8+4; 

@ (unsigned) &OPTION*8+3; 

@ (unsigned) &OPTION*8+2; 

@ ( unsigned ) &0PTI0N*8+1; 

@ (unsigned) &OPTION*8+0; 



1*^, TRISA bits 

static volatile bankl 

staiic volatile bankl 

static volatile bankl 

static volatile bankl 

st^ic volatile bankl 

/*C0 TRISB bits 

static volatile bankl 

static volatile bankl 

static volatile bankl 

static volatile bankl 

static volatile bankl 

static volatile bankl 

static volatile bankl 

static volatile bankl 

/*p EECON1 bits */ 

static volatile bankl 

static volatile bankl 

static volatile bankl 

static volatile bankl 

static volatile bankl 



*/ 

bit 

bit 
bit 
bit 
bit 

*/ 
bit 
bit 
bit 
bit 
bit 
bit 
bit 
bit 



bit 
bit 
bit 
bit 
bit 



TRISA4 @ (unsigned) &TRISA*8+4; 

TRISA3 @ (unsigned) &TRISA*8+3; 

TRISA2 @ (unsigned) &TRISA*8+2; 

TRISA1 @ (unsigned) &TRISA*8+1; 

TRISAO @ (unsigned) &TRISA*8+0; 



TRISB7 
TRISB6 
TRISB5 
TRISB4 
TRISB3 
TRISB2 
TRISB1 
TRISBO 



@ (unsigned) 

@ (unsigned) 

@ (unsigned) 

@ (unsigned) 

@ (unsigned) 

@ (unsigned) 

@ (unsigned) 

@ (unsigned) 



&TRISB 
&TRISB 
&TRISB 
&TRISB 
&TRISB 
&TRISB 
&TRISB 
&TRISB 



*8+7; 
*8+6; 
*8+5; 
*8+4; 
*8+3; 
*8+2; 
*8+l; 
*8+0; 



EEIF @ (unsigned) &EEC0Nl*8+4; 

WRERR @ (unsigned) &EEC0Nl*8+3; 

WREN @ (unsigned) &EEC0Nl*8+2; 

WR @ ( unsigned )&EEC0N1* 8+1; 

RD @ ( unsigned )&EECON1*8+0; 



/* macro versions of EE PROM write and read */ 
#define EEPROM_WRITE ( addr , value) 

while ( WR ) cont inue ; EEADR= ( addr ) ; EEDATA= { value ) ; GIE=0 ; WREN=1 ; \ 

EECON2 =0x 5 5 ; EECON2 =0xAA ; WR= 1 ; WREN=0 
#define EEPROM_READ ( addr ) ( ( BEAD R= ( addr ) ) , ( RD= 1 ) , EED ATA ) 

/* library function versions */ 

extern void eeprom_write ( unsigned char addr, unsigned char value); 
extern unsigned char eeprom_read( unsigned char addr); 



#define CONFIG_ADDR 0x2007 
#define FOSC0 0x01 
#define FOSC1 0x02 
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#define WDTE 
#define PWRTE 



0x04 
0x08 



/* code protection */ 
#if defined (_16C84) 
#define CP 
#endif 



0x10 



#if defined 
#define DP 
#define CP 
#endif 



(_16CR83) | j defined (_16CR84) 
0x80 
0x3F70 



#if defined 
/define CP 
#endif 



(_16F83) || defined (_16F84) 
0x3FF0 



#define UNPROTECT CP 
#dgfine PROTECT 



0x0000 



Q 
D 
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